home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / FindPalette 1.0 Folder.sit / FindPalette 1.0 Folder / FindPalette Folder / FindPalette 1.0 / stack_-1.xml < prev   
Extensible Markup Language  |  1996-07-05  |  6KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>2852</cardID>
  8.     <listID>2067</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>288</width>
  14.         <height>128</height>
  15.     </cardSize>
  16.     <script>on calculateVMeas L,theAngleset the lockErrorDialogs to truereturn abs(L*sin (theAngle*pi/180))end calculateVMeason calculateHMeas L,theAngleset the lockErrorDialogs to truereturn abs(L*cos (theAngle*pi/180))end calculateHMeason calculateLength vertMeas,theAngleset the lockErrorDialogs to trueput theAngle*pi/180 into theAngleput sin(theAngle) into theSinif theSin = 0 thenreturn abs (vertMeas)elsereturn abs(vertMeas/theSin)end ifend calculateLengthon idleglobal elementset the lockErrorDialogs to trueset the enabled of cd button "find next" to truehide cd button "animation"put the selectedText of cd button "attribute pop-up" into elementend idleon showAnimationshow cd button "animation"end showAnimationon hideAnimationhide cd button "animation"end hideAnimationon returnKeypressDefend returnKeyon returnInFieldpressDefend returnInFieldon enterKeypressDefend enterKeyon pressDefset the lockErrorDialogs to trueclick at the loc of button "find next"end pressDefon animateset the lockErrorDialogs to trueif the clickloc is within the rect of cd button "animation" and the mouse is down thenhide cd button "animation"resetexit to hypercardelseif the icon of cd button "animation" is 13385 thenset the icon of cd button "animation" to 29269elseif the icon of cd button "animation" is 29269 thenset the icon of cd button "animation" to 6206elseif the icon of cd button "animation" is 6206 thenset the icon of cd button "animation" to 30036elseset the icon of cd button "animation" to 13385end ifend ifend ifend ifend animateon resetset the lockErrorDialogs to trueglobal elementhide cd button "animation"put empty into cd field "lastPageSearched"put empty into cd field "lastBoxSearched"set the enabled of cd button "Find Next" to trueset the enabled of cd button "change, then find" to falseset the enabled of cd button "change" to falseset the enabled of cd button "change all" to falseput the selectedText of cd button "attribute pop-up" into elementend reseton showPopUps findContents,changeContentsset the lockErrorDialogs to truehide cd field "find field"hide cd field "change field"put  findContents into cd button "find pop-up"select line 1 of cd button "find pop-up"show cd button "find pop-up"put  changeContents into cd button "change pop-up"select line 1 of cd button "change pop-up"show cd button "change pop-up"end showPopUpson startupset the lockErrorDialogs to trueset the cantDelete of this cd to trueset the cantDelete of this background to trueset the cantDelete of this stack to truehide titlebarif there is not a scriptingLanguage "AppleScript" thenanswer "AppleScript is not installed." with "Quit"doMenu "quit"elseif the commandkey is  down and the optionkey is downthen--elsedelete menu "Style"delete menu "Font"delete menu "Go"delete menuitem 9 from menu "Edit"delete menuitem 8 from menu "Edit"delete menuitem 7 from menu "Edit"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"delete menuitem 1 from menu "File"set the name of menuitem 1 of menu "File" to "Quit"set the name of menuitem 1 of menu 1 to "About FindPalette窶ｦ"end ifend ifresethideAnimationend startupon arrowKeybeepend arrowKey--on errorDialog jj--  answer jj--end errorDialogon errorDialog jjset the lockErrorDialogs to truebeepput "Can't understand "&quote&"findNextTextBox"&quote&"." into aput "Can't understand "&quote&"findNextPicBox"&quote&"." into bput "Can't understand "&quote&"findNextLineBox"&quote&"." into cput "Can't understand "&quote&"findNextHGuideBox"&quote&"." into dput "Can't understand "&quote&"findNextVGuideBox"&quote&"." into eif jj =  a or jj = b or jj = c or jj = d or jj = e thenanswer "There is a problem with the scripting system. Make sure that AppleScript is properly installed." with "Quit"doMenu "quit"else--end ifend errorDialogon doMenu theItem,theMenuset the lockErrorDialogs to trueif theItem is "Quit" then doMenu "Quit HyperCard"elseif theitem is "About Hypercard..." thenput "FindPalette 1.0" & return & "ﾂｩ1996 by Dario Badia, Toronto, ON, Canada."&return&"E-mail: dario@netcom.ca" into wwwput www & return&"CompuServe:102217,2750"&return & "America Online: DBadia5"&return&return&"Created with HyperCard邃｢ 2.2."&return&return&"Shareware Fee: $10" into wwwwanswer wwwwelsepass doMenuend ifend ifend doMenuon showFieldsset the lockErrorDialogs to truehide cd button "find pop-up"hide cd button "change pop-up"put "" into cd field "find field"put "" into cd field "change field"show cd field "find field"show cd field "change field"select text of  cd field "find field"end showFields</script>
  17.     <background id="2765" file="background_2765.xml" name="" />
  18.     <card id="2852" file="card_2852.xml" marked="false" name="" owner="2765" />
  19.     <card id="3916" file="card_3916.xml" marked="false" name="" owner="2765" />
  20.     <card id="4310" file="card_4310.xml" marked="false" name="" owner="2765" />
  21. </stack>
  22.